home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt106b].d64 / geosplitter (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  38 lines
  1. 0 GOTO35
  2. 5 HI=INT(A/256):LO=A-HI*256:PRINT#15,"M-R"CHR$(LO)CHR$(HI):GET#15,A$:A=ASC(A$+CHR$(.)):RETURN
  3. 10 PRINT#15,"U1:"2;0;TR;SC:RETURN
  4. 15 PRINT#15,"U2:"2;0;TR;SC:RETURN
  5. 20 PRINT#15,"B-P:"2;PS:RETURN
  6. 25 GET#2,A$:A$=LEFT$(A$+CHR$(.),1):AA=ASC(A$):RETURN
  7. 30 PRINT#2,CHR$(A);:RETURN
  8. 35 DIMDI$(29),TY$(14):POKE808,234:POKE53280,0:POKE53281,0
  9. 40 PRINT"[147][153][208]ROGRAM TO [211]PLIT";:INPUTA$:GOSUB115:PRINT:FORI=1TO5:READA$,L,H
  10. 45 PRINTA$;:INPUTB$:E%(I)=VAL(B$):ON-(E%(I)<LORE%(I)>H)GOTO45:PRINT:NEXT
  11. 50 FORI=1TO14:READTY$(I):NEXT
  12. 55 PRINT:PRINT:FORI=1TO14:PRINTSTR$(I)") "TY$(I):NEXT:PRINT:INPUT"[215]HAT TYPE";TY$
  13. 60 TY=VAL(TY$):IFTY<.ORTY>14THEN55
  14. 65 PRINT"[147][196]ATE -"STR$(E%(1))"/"MID$(STR$(E%(2)),2)"/"RIGHT$(STR$(E%(3)+100),2);
  15. 70 PRINT"   [212]IME -"STR$(E%(4))":"RIGHT$(STR$(E%(5)+100),2)
  16. 75 PRINT:PRINT"[212]YPE - "TY$(TY):PRINT:PRINT"[195]ORRECT?";:POKE198,.:WAIT198,7:GETA$
  17. 80 PRINTA$:IFA$<>"Y"ANDA$<>"[217]"THENRESTORE:GOTO40
  18. 85 TR=ASC(DI$(1)):SC=ASC(DI$(2)):GOSUB10:GOSUB25:XT=AA:GOSUB25:XS=AA:GOSUB10
  19. 90 A=.:GOSUB30:A=255:GOSUB30:A=3:GOSUB30:A=24:GOSUB30:GOSUB15
  20. 95 DI$(.)=CHR$(131):DI$(19)=DI$(1):DI$(20)=DI$(2)
  21. 100 DI$(1)=CHR$(XT):DI$(2)=CHR$(XS):DI$(21)=CHR$(.):DI$(22)=CHR$(TY)
  22. 105 DI$(23)=CHR$(E%(3)):DI$(24)=CHR$(E%(1)):DI$(25)=CHR$(E%(2))
  23. 110 DI$(26)=CHR$(E%(4)):DI$(27)=CHR$(E%(5)):GOTO140
  24. 115 OPEN15,8,15,"I0:":OPEN2,8,2,"#":OPEN3,8,3,A$:CLOSE3:INPUT#15,E1$,E2$
  25. 120 IFE1$>"19"THENPRINTE2$:GOTO135
  26. 125 A=656:GOSUB5:DS=A:A=660:GOSUB5:DO=A:TR=18:SC=DS
  27. 130 GOSUB10:PS=DO:GOSUB20:FORI=.TO29:GOSUB25:DI$(I)=A$:NEXT:RETURN
  28. 135 CLOSE2:CLOSE15:POKE808,237:END
  29. 140 TR=18:SC=DS:GOSUB10:PS=DO:GOSUB20:FORI=.TO29:PRINT#2,LEFT$(DI$(I),1);:NEXT
  30. 145 GOSUB15:PRINT:PRINT"[196]ONE!":GOTO135
  31. 150 DATA"[205]ONTH (1-12)",1,12
  32. 155 DATA"[196]AY (1-31)",1,31
  33. 160 DATA"[217]EAR (0-99)",.,99
  34. 165 DATA"[200]OUR (1-24)",1,24
  35. 170 DATA"[205]INUTE (0-59)",.,59
  36. 175 DATABASIC,ASSEMBLY,DATA,SYSTEM,DESK ACCESSORY,APPLICATION,APPL. DATA,FONT
  37. 180 DATAPRINTER DRIVER,INPUT DRIVER,DISK DRIVER,SYSTEM BOOT,TEMP,AUTO BOOT
  38.